home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DP Tool Club 19
/
CD_ASCQ_19_010295.iso
/
dos
/
prg
/
pas
/
swag
/
timing.swg
/
0009_Giving Timeslices.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-08-27
|
782b
|
39 lines
{
MARCO MILTENBURG
>> if you find SOURCE to detect/give up time slices For Windows/OS/2/Desqview,
>> could you post it? I have stuff For Desqview, I believe.
> Procedure GiveTimeSlice; Inline( $cd/$28 );
This is nice, but you have to be sure that you have enough stack space left,
because Dos or TSR's that hook this interrupt will use SS:SP For their own
stack. I use the following in my multitasker detect Unit :
}
Procedure TimeSlice;
Var
Regs : Registers;
begin
Case OS_Type Of
_Dos :
begin
end;
_DV,
_DVX :
begin
Regs.AX := $1000;
Intr($15, Regs);
end;
_OS2,
_WINS,
_WIN3:
begin
Regs.AX := $1680;
Intr($2F, Regs);
end;
end;
end;